home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
patches
/
patchemu.lha
/
patchemu.rexx
Wrap
OS/2 REXX Batch file
|
1995-11-08
|
1KB
|
56 lines
/* Patch emu object V1.0 */
/* © by Stefan Haubenthal 1995 */
/* 030/25 needs 188 seconds */
/* Chamäleon II:
AUTOREN
Thomas Wieger & Thorsten Deuter
Oberfläche mit R.C.T.
© MAXON Computer GmbH 1991
Industriestraße 26
6236 Eschborn
Telefon: 06196/481811
FAX: 06196/41137
(Don't use tools like PrepareEmul) */
name="emu.obj"
len=28504 /* 35000 */
key="BW"
call open in,name
call open out,"t:"name,W
call code(1)
file=out
call patch(x2d(580),"888"x)
call close out
call close in
key="BW"
call open in,"t:"name
call open out,name,W
call code(0)
queue "delete >nil: t:"name
exit
CODE:
arg decode
do len/2
word=readch(in,2)
call writech out,bitxor(word,key)
if decode then key=reverse(bitxor(word,reverse(key)))
else key=reverse(bitxor(word,bitxor(key,reverse(key))))
end
return
PATCH:
parse arg position,data
if position<0 then exit 10
call seek(file,position,'B')
say c2x(readch(file,length(data)))
call seek(file,-length(data))
call writech(file,data)
call seek(file,-length(data))
say c2x(readch(file,length(data)))
return